home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / act4 / 00087.ls < prev    next >
Encoding:
Text File  |  1995-04-05  |  1.1 KB  |  41 lines
  1. on enterFrame
  2.   global CurrentBug, level1, SubBug, myclickon, curdraw, curmask
  3.   set curdraw to the number of cast "cursing"
  4.   set curmask to the number of cast "cursing mask"
  5.   set myclickon to 0
  6.   puppetSprite(37, 1)
  7.   puppetSprite(1, 1)
  8.   puppetSprite(2, 1)
  9.   puppetSprite(3, 1)
  10.   set the castNum of sprite 37 to the number of cast ("bug" & CurrentBug & "." & level1 & "." & SubBug)
  11.   set the foreColor of sprite 37 to 252
  12. end
  13.  
  14. on exitFrame
  15.   global level1, pal, NumofCol, ChipList, NameList, introplayed
  16.   if level1 = 1 then
  17.     set templist to ChipList
  18.   else
  19.     set templist to NameList
  20.   end if
  21.   repeat with xxx = 4 to 3 + NumofCol
  22.     puppetSprite(xxx, 1)
  23.     set temphold to getAt(pal, xxx - 3)
  24.     if level1 < 3 then
  25.       setcolor(xxx, temphold)
  26.     else
  27.       set the castNum of sprite xxx to getAt(templist, temphold)
  28.     end if
  29.     set the backColor of sprite xxx to 1
  30.     set the visible of sprite xxx to 1
  31.   end repeat
  32.   if level1 = 1 then
  33.     set hinter to 1
  34.   else
  35.     set hinter to 2
  36.   end if
  37.   if not introplayed then
  38.     play frame "MC" & hinter & ".1"
  39.   end if
  40. end
  41.